powered by
is_element(x, key)
binary_search (buit-in R function)
x <- rnorm(10000) key <- x[500] system.time( b <- is_element(x,key) )
Run the code above in your browser using DataLab